home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 82 / 082.d81 / what goes up (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  25KB  |  721 lines
  1. 100 rem@ s=1024
  2. 110 n=1:v=53248:poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or0
  3. 120 gosub4290:poke648,192:poke53265,23:poke53272,9:poke650,128:print"[147]";:a=rnd(-ti)
  4. 130 pokev+21,0:poke53282,2:poke53283,1:poke53270,216:poke53281,0:poke53280,0
  5. 140 cd$=""
  6. 150 cl$="                                       ":sm$="loadstar!"+chr$(13)
  7. 160 dima$(125),a(127),c(12,3),l(3),s(3,2),d(100,1),m$(23),i(4),n$(12),i$(8)
  8. 170 dimtp$(10),ts(10),ls(3),t$(44),pr(4),pr$(4),sp(3)
  9. 180 ch$="[208]abcdefghijklmnopqrstuvwxyz1234567890?!'.$[191][217][180]"
  10. 190 readb,c:ifc<>-1thena(b)=c:goto190
  11. 200 z1=1024:z2=1173:z3=1180:z4=1193:fora=1to8:readc(a,1):next
  12. 210 fora=1to12:readc(a,2):next:fora=1to8:readc(a,3):next
  13. 220 fora=1to3:readl(a):next
  14. 230 fora=0to23:readm$(a):m$(a)="        "+m$(a)+"        ":next
  15. 240 fora=1to12:readn$(a):next
  16. 250 fora=1to8:readi$(a):next
  17. 260 p4=0
  18. 270 fora=0to44:readt$(a):next
  19. 280 z=1:jp=56321
  20. 290 open15,8,15,"r0:the best=the best":input#15,a$:close15:ifa$<>"63"then6960
  21. 300 z=0
  22. 310 open2,8,2,"the best,s,r":fora=1to10:input#2,p$(a),a$:ts(a)=val(a$)
  23. 320 next:input#2,qu$:close2:ml=12
  24. 330 pr(0)=50:pr(1)=15:pr(2)=25:pr(3)=50:pr(4)=30
  25. 340 pr$(0)="rocket":pr$(1)="flashlight":pr$(2)="bomb":pr$(3)="shield"
  26. 350 pr$(4)="spanner":sp(1)=57:sp(3)=56
  27. 360 gosub7110:goto2400
  28. 370 print"[147]";:pokev+21,0:pokev+23,0:fora=.to4:i(a)=0:next:cd=2
  29. 380 ifpm=0thenl=1
  30. 390 dl=0:mb=3:s=.:o8=72:pokesd+5,9:pokesd+6,0:rem begin stage
  31. 400 pokesd+4,wf:pokesd+1,33:pokesd,135:pokesd+4,17:fora=1to50:next:ct=.:wf=16
  32. 410 gosub5900:pokesd+4,16:poke53283,c4:poke53282,c3:poke646,c2or8
  33. 420 s4=.:print"[147]";:poke198,.:ac=0:xs=x1:ys=y1-1:pb=49422:ip=1
  34. 430 gosub6110:gosub6020:tm=mt:s1=.:s3=.:tn=tu:s4=.:poke198,0
  35. 440 x=xs:sc=49352:y=ys+20:rv=8:ov=10:sp=32:sx=16+x*8:pokev+1,88
  36. 450 pokev,sx:poke50168,16:pokev+39,3:pokev+21,1:gosub790
  37. 460 sysz4,fs:sys z2,33:pokev+16,0:d1=1:db=100:nd=0
  38. 470 ifbl<>.thengosub6430
  39. 480 sx=16+x*8:pokev,sx:poke50168,16
  40. 490 j=peek(jp)and127:ifj=111then800
  41. 500 if(jand1)=.thengosub750
  42. 510 if(jand2)=.thengosub770
  43. 520 bx=peek(x+sc+40):ifint(a(bx))=.then550
  44. 530 ona(bx)goto2830,3380,3390,4210,4200,4240,4220,4230,3020,3510,4270
  45. 540 ona(bx)-11goto4310,4340,4390,4430,550,550,4980,5820
  46. 550 j=peek(jp):if(jand4)=.thendr=-n:bx=peek(x+sc+dr):goto630
  47. 560 if(jand8)=.thendr=n:bx=peek(x+sc+dr):goto630
  48. 570 k=.:tn=tn-n:iftn<nthentn=tu:tm=tm-n:gosub790:iftm<nthen2830
  49. 580 ifs1=nthens3=s3-n:ifs3=.then710
  50. 590 ifs4=nthens5=s5-n:ifs5=.thens4=.:poke53283,c4:poke53282,c3
  51. 600 goto470
  52. 610 ifk=1then570
  53. 620 goto550
  54. 630 k=n:d1=dr:dm=.:ifbx=221then4390
  55. 640 ifint(a(bx))=.then3550
  56. 650 pc=17:ifr=.5thenpc=16
  57. 660 r=.:ona(bx)goto2830,690,3550,3550,3550,4240,3550,3550,3020,3510
  58. 670 ona(bx)-10goto4270,4310,4340,4390,4430,4490,4610,4980,5820
  59. 680 goto3550
  60. 690 pokev,sx+dr*4:poke50168,pc:x=x+dr:goto570
  61. 700 pokev,sx+dr*4:fora=nto50:next:x=x+dr:sx=16+x*8:pokev,sx:poke50168,16:goto570
  62. 710 s1=0:poke53280,0:ifa(peek(x+sc+40))=1then2830
  63. 720 ifa(peek(x+sc))=1then2830
  64. 730 goto600
  65. 740 pokepb+(pp-1)*40,32:pokepb+(ip-1)*40,106:return
  66. 750 pp=ip:ip=ip-1:ifip<1thenip=6
  67. 760 gosub740:return
  68. 770 pp=ip:ip=ip+1:ifip>6thenip=1
  69. 780 gosub740:return
  70. 790 print""tab(33)tm"[157] ":return
  71. 800 ifip=6then830
  72. 810 onipgosub980,1120,1160,1260,1300
  73. 820 goto520
  74. 830 sys z1,10,20,30,1
  75. 840 print"";:fora=1to24:printtab(30)"         ":next:print""tab(31)"[159]game"
  76. 850 printtab(31)"paused":print:printtab(31)"press:"
  77. 860 printtab(31)"a to":printtab(31)"abort,"
  78. 870 printtab(31)"q to":printtab(31)"quit,"
  79. 880 printtab(31)"e to":printtab(31)"exit the":printtab(31)"program,"
  80. 890 printtab(31)"or space":printtab(31)"to":printtab(31)"return"
  81. 900 printtab(31)"to the":printtab(31)"game."
  82. 910 poke198,0
  83. 920 geta$:ifa$="a"thenab=1:goto2830
  84. 930 ifa$="q"then3560
  85. 940 ifa$="e"then1350
  86. 950 ifa$<>" "then920
  87. 960 print"";:fora=1to24:printtab(30)"         ":next:print"";:gosub6110
  88. 970 goto520
  89. 980 ifi(.)=.thenreturn
  90. 990 i(.)=i(.)-1:print""tab(33)i(.)""
  91. 1000 sysz2,129:sysz1,0,50,30,20
  92. 1010 poke646,c2or8:poke50168,25:pokev+2,peek(v):pokev+3,peek(v+1):pokev+40,2
  93. 1020 poke50169,26:ex=27:pokev+21,3
  94. 1030 fora=1to10:ifa(peek(x+sc-40))<>2thena=10:next:goto1110
  95. 1040 yz=ys-5
  96. 1050 ifyz<1thenyz=yz+100:goto1050
  97. 1060 sys915:print""a$(yz):y=y-1:ify<1theny=100
  98. 1070 ys=ys-1:ifys<1thenys=100
  99. 1080 ifbl<>.thenbp=bp+40:ifbp>50151thenbl=0
  100. 1090 poke50169,ex:ifex=27thenex=26:next:goto1110
  101. 1100 ex=27:next
  102. 1110 sys1173,33:pokev+21,1:poke50168,16:return
  103. 1120 ifi(n)=.thenreturn
  104. 1130 ifs4=nthenreturn
  105. 1140 i(n)=i(n)-n:print""tab(33)i(1)""
  106. 1150 sysz1,10,250,30,100:s5=30:s4=n:poke53283,11:poke53282,2:return
  107. 1160 ifi(2)=.thenreturn
  108. 1170 i(2)=i(2)-1:print""tab(33)i(2)"":pokev+40,10:sysz2,129
  109. 1180 pokev+2,peek(v):pokev+3,peek(v+1):poke50169,18:pokev+21,3
  110. 1190 fora=1to7:next:poke50169,19:gosub1340:fora=-41to-39
  111. 1200 ifa(peek(x+sc+a))=.5thenpokex+sc+a,32
  112. 1210 next:poke50169,20:ifa(peek(x+sc-1))=.5thenpokex+sc-1,32
  113. 1220 ifa(peek(x+sc+1))=.5thenpokex+sc+1,32
  114. 1230 poke50169,21:fora=39to41:ifa(peek(x+sc+a))=.5thenpokex+sc+a,32
  115. 1240 next:poke50169,22:fora=1to7:next:poke50169,23:fora=1to7:next:pokev+21,1
  116. 1250 sysz2,33:return
  117. 1260 ifs1=1thenreturn
  118. 1270 ifi(3)=.thenreturn
  119. 1280 sysz1,190,250,30,20:s1=1:s3=20:poke53280,1
  120. 1290 i(3)=i(3)-1:print""tab(33)i(3)"":return
  121. 1300 ifpeek(x+sc+40+d1)<>32thenreturn
  122. 1310 ifi(4)=.thenreturn
  123. 1320 sysz1,10,50,30,1:pokex+sc+40+d1,99
  124. 1330 i(4)=i(4)-1:print""tab(33)i(4)"":return
  125. 1340 sysz1,10,250,30,100:return
  126. 1350 pokev+21,0:pokesd+4,0:pokesd+11,0:pokesd+18,0:pokesd+5,9:pokesd+6,0
  127. 1360 print"[153][147]";
  128. 1370 sysz1,10,171,50,160
  129. 1380 print"do you want to:"
  130. 1390 print""tab(7)"1.reset the program"
  131. 1400 print""tab(7)"2.return to the boot menu"
  132. 1410 print""tab(7)"3.return to loadstar"
  133. 1420 rv=9
  134. 1430 getqq$:qq=val(qq$):onqqgoto1560,1450,1500
  135. 1440 goto1430
  136. 1450 print"[147]";:sysz3:pokesd+4,32
  137. 1460 open15,8,15,"r0:upboot=upboot":input#15,er%:close15
  138. 1480 poke53272,21:poke648,4:poke56576,151:poke53265,27:poke53270,200:print"[147][154]";
  139. 1490 poke53281,6:poke53280,14
  140. 1495 ifer%<>63thenprint"[147]":end
  141. 1496 goto60000
  142. 1500 print"[147]";:sysz3:pokesd+4,32
  143. 1510 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  144. 1520 ifer%<>63then1480
  145. 1530 poke53272,21:poke648,4:poke56576,151:poke53265,27:poke53270,200:print"[147][158]";
  146. 1540 poke53281,3:poke53280,10
  147. 1550 load "hello connect",8
  148. 1560 run
  149. 1570 data109,1,125,1,102,1,104,1,92,1,85,1,73,1,36,1,31,1,42,1,72,1,68,1,70,1
  150. 1580 data32,2,87,3,77,4,78,5,91,6,27,7,29,8,35,9,0,10,82,11,79,12
  151. 1590 data28,13,59,13.41,60,13.31,71,13.11,90,13.21
  152. 1600 data74,1,124,1,83,14,75,.5,99,.5,113,.5,88,.5,86,.5,66,15,37,16
  153. 1610 data41,17,47,18,62,16,96,16,30,16,80,19,100,14,121,4.5,127,5.5,76,2,-1,-1
  154. 1620 data0,6,14,3,1,3,14,6
  155. 1630 data0,9,2,8,10,7,1,7,10,8,2,9
  156. 1640 data0,11,12,15,1,15,12,11
  157. 1650 data8,12,8
  158. 1660 data"   by johnny harris!    "
  159. 1670 data"   @ 1990 john harris   "
  160. 1680 data"published on loadstar 82"
  161. 1690 data"      press fire!!      "
  162. 1700 data" so you managed to make "
  163. 1710 data"  it through the last   "
  164. 1720 data"   set of tunnels, eh?  "
  165. 1730 data"well, here are 12 more! "
  166. 1740 data" and they're even harder"
  167. 1750 data"      than before!!     "
  168. 1760 data"you think ya got what it"
  169. 1770 data"takes? suuuure you do..."
  170. 1780 data" hahahahahahahahaha.... "
  171. 1790 data"  to enter the control  "
  172. 1800 data"screen, type 'loadstar!'"
  173. 1810 data"    and press return!   "
  174. 1820 data"(built-in advertisment!)"
  175. 1830 data"   i bet you're sick    "
  176. 1840 data" of exclamation points! "
  177. 1850 data"    well, i'm not!!     "
  178. 1860 data"!!!!!!!!!!!!!!!!!!!!!!!!"
  179. 1870 data" now i'm sick of them.  "
  180. 1880 data"        see ya!         "
  181. 1890 data"                        "
  182. 1900 data one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve
  183. 1910 data"access card","flashlight","bomb","shield"
  184. 1920 data"key","rocket","spanner","1 up"
  185. 1930 data" you have escaped from the  "
  186. 1940 data"  planet,and are returning  "
  187. 1950 data"  home. i hope you enjoyed  "
  188. 1960 data"  the game! before i go, i  "
  189. 1970 data"  would just like to thank  "
  190. 1980 data"  the editors of loadstar:  "
  191. 1990 data" fender tucker & jeff jones "
  192. 2000 data"","  for agreei